home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 October / MACPOWER-1997-10.ISO.7z / MACPOWER-1997-10.ISO / AMUG / INTERNET / HTML Grinder 3.21.sit / HTML Grinder / HTML Grinder.rsrc / LENS_135_Splash < prev    next >
Text File  |  1997-07-09  |  1KB  |  27 lines
  1. ItemType: WIND
  2. Rect: 237,147,595,372
  3. Style: Window
  4. HasTitleBar: FALSE
  5. HasZoomBox: FALSE
  6. HasCloseBox: TRUE
  7. HasGrowBox: FALSE
  8. MinSize: 100,50
  9. MaxSize: 865,597
  10. Name: Splash
  11. Script: --on windowEvent  wdID,wdName,objNo,objName,objValueﾂﾂif objValue="Open" thenﾂ  wsSet wdID,"version","Text", "Version" && grinderversion()ﾂ  put word 1 of screeninfo() into thecolorsﾂ  if thecolors < 256 thenﾂ    wsSet wdID,1,"Name", "GrinderBW"ﾂ    wsSet wdID,"version","blackcolor","0,0,0"ﾂ    wsSet wdID,"version","whitecolor","-1,-1,-1"ﾂ  elseﾂ    wsSet wdID,1,"Name", "GrinderColor"ﾂ    wsSet wdID,"version","blackcolor","-1,-1,-1"ﾂ    wsSet wdID,"version","whitecolor","13762,13766,25558"ﾂ  end ifﾂ  ﾂelse if objValue="Close" then ﾂ  ﾂelse if objValue="Suspend" then ﾂ  ﾂelse if objValue="Resume" then ﾂ  ﾂelse if objValue="CloseBox" then ﾂ  ﾂelse if objValue="ZoomBox" then ﾂ  ﾂelse if objValue="GrowBox" then ﾂ  ﾂelse if objValue="TitleBar" then ﾂ  ﾂend ifﾂﾂ--end windowEventﾂﾂﾂ
  12.  
  13. ItemType: PICT
  14. Rect: -1,-1,359,226
  15. Name: GrinderColor
  16. Script: close window "splash"
  17.  
  18. ItemType: TEXT
  19. Rect: 275,4,352,16
  20. TextFont: Geneva
  21. TextSize: 9
  22. AutoSize: FALSE
  23. Name: version
  24. BlackColor: -1,-1,-1
  25. WhiteColor: 13762,13766,25558
  26. TextAlign: Right
  27. Text: Version 2.3□